100 R=R+1:IFR=2THENLOAD"UTIL.LDR",8,1:REM(null)
105 IFR=3THENSYS828:REM(null)
110 PRINT"[147]   PRINTER INTERFACE ";:REM(null)
112 PRINT"                      ";:REM(null)
115 PRINT"    UTILITY PROGRAMS   ":REM(null)
120 PRINT"[159]BY STEPHEN MEIROWSKY":REM(null)
125 PRINT"   [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":REM(null)
130 PRINT"   CARDCO,INC.":REM(null)
140 PRINT"   313 MATHEWSON":REM(null)
150 PRINT"   WICHITA,KS 67214":REM(null)
160 PRINT"[144]COMPUTER: VIC":REM(null)
165 PRINT"          [163][163][163]":REM(null)
170 PRINT"1[146][156]: SCREEN DUMP.":REM(null)
180 PRINT"2[146][156]: KEYED SCREEN DUMP.":REM(null)
190 PRINT"3[146][156]: GRAPHIC CHARACTER     PRINT.":REM(null)
192 FORA=1TO3000:NEXT:REM(null)
194 PRINT"   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":REM(null)
195 PRINT"    PUSH SPACE BAR [146]":REM(null)
198 GETA$:IFA$<>" "THEN198:REM(null)
200 PRINT"[147]LOADING ADDRESS":REM(null)
205 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":REM(null)
210 PRINT"0[146]: BLOCK 5 - $BC00":A(0)=48128:REM(null)
220 PRINT"1[146]: BLOCK 5 - $AC00":A(1)=44032:REM(null)
230 PRINT"2[146]: AUTO TOP OF BASIC":A(2)=(PEEK(56)-4)*256:REM(null)
250 INPUT"[145]WHICH ADDRESS  2 [157][157][157][157]";A$:IFA$<"0"ORA$>"2"THEN250:REM(null)
260 A=VAL(A$):PRINT:PRINT:REM(null)
270 INPUT"[145][144]PRINTER OPTION  N [157][157][157][157]";A$:IFA$<>"N"ANDA$<>"Y"THEN270:REM(null)
280 PRINT:D=3:S=0:IFA$="N"THEN310:REM(null)
290 INPUT"[145]DEVICE  4 [157][157][157][157]";A$:IFA$<"4"ORA$>"5"THEN290:REM(null)
295 D=VAL(A$):PRINT:REM(null)
300 INPUT"[145]SECONDARY  0 [157][157][157][157]";A$:S=VAL(A$):IFA$<"0"ORA$>"8"THEN300:REM(null)
310 PRINT"[147]":OPEN 1,D,S:CMD 1:X=A(A):REM(null)
312 POKE254,0:Y=X/256-1:POKE255,Y:POKE1018,Y-15:REM(null)
315 IFX<32768THENPOKE56,X/256:POKE55,0:REM(null)
320 PRINT"SCREEN DUMP:            SYS"X:REM(null)
330 PRINT"INIT KEYED SCREEN DUMP: SYS"X+3:REM(null)
340 PRINT"EXIT KEYED SCREEN DUMP: SYS"X+6:REM(null)
350 PRINT"INIT CHARACTER PRINT:   SYS"X+9:REM(null)
360 PRINT"EXIT CHARACTER PRINT:   SYS"X+12:REM(null)
370 PRINT"REVERSE SCREEN:         POKE"X+18",S":REM(null)
375 PRINT"REVERSE CHARACTER:      POKE"X+19",C":REM(null)
380 PRINT"FORCE FLAG:             POKE"X+20",F":REM(null)
390 PRINT"KEY CHARACTER:          POKE"X+21",K":REM(null)
392 PRINT"HEX DUMP:               POKE"X+22",H":REM(null)
394 PRINT"DEVICE#:                POKE"X+23",DV":REM(null)
396 PRINT"SECONDARY ADDRESS:      POKE"X+24",SA":REM(null)
400 PRINT#1:CLOSE1:REM(null)
410 PRINT:PRINT"    PUSH SPACE BAR[146]";:REML
415 PRINT:PRINT"     TO CONTINUE[146]":REM(null)
420 GETA$:IFA$<>" "THEN420:REM(null)
500 PRINT"[147]TYPE OF PRINTER":REM(null)
505 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":REM(null)
510 PRINT"0[146]: GEMINI-10/GEMINI-15":REM(null)
520 PRINT"1[146]: EPSON MX-80/FX-80":REM(null)
530 PRINT"2[146]: PROWRITER 8510":REM(null)
540 INPUT"[145]WHICH PRINTER  0 [157][157][157][157]";P$:IFP$<"0"ORP$>"3"THEN540:REM(null)
560 IFP$="0"THENPOKE1021,42:P$="G":REM(null)
570 IFP$="1"THENPOKE1021,42:P$="E":REM(null)
580 IFP$="2"THENPOKE1021,106:P$="P":REM(null)
590 PRINT:PRINT"SINGLE OR DOUBLE":REM(null)
592 INPUT"DENSITY";D$:D$=LEFT$(D$,1):IFD$<>"S"ANDD$<>"D"THEN590:REM(null)
594 P=128:IFD$="S"THENP=0:REM(null)
596 POKE1020,P:REM(null)
600 PRINT"PUSH SPACE BAR TO LOAD":REM(null)
610 GETA$:REM(null)
611 ZZ=ZZ+1:IFZZ=50THENPRINT"[145][145]";:GOTO600:REM(null)
612 IFZZ=100THENPRINT"[145][145][146]";:ZZ=0:GOTO600:REM(null)
614 IF A$<>" "THEN610:REM(null)
620 PRINT"[147]":LOAD"PS."+P$+"."+D$+".V",8,1:REM(null)